library(actuar)
setwd("/home/blair/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Aggregate Studies/Mueller/Level Inequality Fit/Functions")
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Aggregate Studies/Mueller/Level Inequality Fit/Master Script.R')
install.packages("R.utils")
library(R.utils)
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Aggregate Studies/Mueller/Level Inequality Fit/Master Script.R')
d = data.frame(Mueller, g.gamma, g.levy, g.lgamma, g.levy, g.weib)
View(d)
g.outer = ineq(d$Mean)
g.inner = rowMeans(d[,7:11])
g.inner = colMeans(d[,7:11])
mean(g.gamma)
g.ratio = g.outer/g.inner
boxplot(g.ratio)
g.inner
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Aggregate Studies/Mueller/Level Inequality Fit/Master Script.R')
g.inner
setwd("~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Aggregate Studies/Mueller/Level Inequality Fit")
result = data.frame(Year = "2004-2013", g.outer, g.iner, g.ratio, Source = "Mueller")
result = data.frame(Year = "2004-2013", g.outer, g.inner, g.ratio, Source = "Mueller")
View(result)
library(readr)
setwd("~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Aggregate Studies/Mueller/Level Inequality Fit")
write_csv(result, "Mueller Hierarchy Results.csv")
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Aggregate Studies/Mueller/Level Inequality Fit 2/FUNCTIONMASTER SCRIPT.R')
stopCluster(cl)
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Aggregate Studies/Mueller/Level Inequality Fit 2/FUNCTIONMASTER SCRIPT.R')
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Aggregate Studies/Mueller/Level Inequality Fit 2/FUNCTIONMASTER SCRIPT.R')
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Aggregate Studies/Mueller/Model/Functions/FUNCTION MASTER SCRIPT.R')
library(R.utils)
dir  = dirname(rstudioapi::getActiveDocumentContext()$path)
files = list.files(pattern = "\\.R$")
files = files[files != "FUNCTIONMASTER SCRIPT.R"]
files = files[files != "FUNCTION MASTER SCRIPT.R"]
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Aggregate Studies/Mueller/Model/Functions/FUNCTION MASTER SCRIPT.R')
